home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 5-Fonts & Software / Demo Software / Wingz / Startup (.txt) next >
Wingz Script  |  1989-02-08  |  998b  |  43 lines
  1. WNGZWZSC01b1
  2. Test Flight
  3. :Sheets
  4. :Scripts
  5. sheetfolder
  6. scriptfolder
  7. tffolder
  8. first
  9. drive2name
  10. harddisk
  11. drivebutton
  12. icalc
  13. fontsloaded
  14. tfloaded
  15. machineinit
  16. deskinit
  17. windowset
  18. computer
  19. tfnotice
  20. define sn, tf
  21. tf = length("Test Flight")
  22. sn = length(name())
  23. if sn > tf
  24.     get script left(name(), sn - tf - 1) & ":TF"
  25.     get script "TF"
  26. end if
  27. tf:sheetfolder = ":Sheets"
  28. tf:scriptfolder = ":Scripts"
  29. tf:tffolder = ""
  30. tf:play = 0
  31. tf:first = 1
  32. tf:drive2name = ""
  33. tf:harddisk = 1
  34. tf:drivebutton = 1
  35. tf:icalc = 0
  36. tf:fontsloaded = 0
  37. tf:exit = 0
  38. tf:tfloaded = 1
  39. call TF:machineinit(0)
  40. call TF:deskinit()
  41. call TF:windowset(TF:computer)
  42. call tf:tfnotice()
  43.